Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With ToggleButton1
        'wsݩʡ]lA^
        .Value = False
        .Caption = "OFF"
    End With
End Sub

Private Sub ToggleButton1_Change()
    With ToggleButton1
        If .Value Then
            .Caption = "ON"
        Else
            .Caption = "OFF"
        End If
    End With
End Sub
